﻿
Partial Class masterpages_MaestraRegistro
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim iAnimalSeleccionado As Integer
        Try
            iAnimalSeleccionado = CType(Request.QueryString("animal"), Integer)
        Catch ex As Exception
            iAnimalSeleccionado = 0

        End Try
        If iAnimalSeleccionado = 0 Then Response.Redirect("~/Registro/buscar.aspx")
    End Sub

    Protected Sub IBHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles IBHome.Click
        Dim codigo As String = ""
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Default.aspx"
        Response.Redirect(codigo)
    End Sub
End Class

